Aplicación de Prolog en la enfermedad del dengue (página 2)

El dengue.

El dengue es una
enfermedad febril de comienzo súbito, epidémica de
origen vírico y transmitida por el mosquito

Stegomyia aegypti o
Aedes aegypti y con menor frecuencia por
el
Aedes albopictus o
mosquito tigre. Es frecuente en zonas de la
India, Sudeste
Asiático, Centro y Sudamérica, Caribe y
África central y occidental.

Es causada por cualquiera de cuatro virus
estrechamente relacionados (DEN-1, DEN-2, DEN-3 ó
DEN-4) que son transmitidos a los humanos por la picadura de un
mosquito infectado. El mosquito Stegomyia aegypti es el
transmisor o vector de los virus de dengue
más importante en el hemisferio occidental.

También llamada fiebre rompehuesos,
enfermedad infecciosa tropical caracterizada por fiebre y dolor
intenso en las articulaciones y
músculos, inflamación de los ganglios
linfáticos y erupción ocasional de la piel.

El dengue es endémico en algunas zonas de los
trópicos y han aparecido epidemias en países
tropicales y templados. Carece de tratamiento específico y
de vacuna. Con frecuencia tiene una evolución de seis a siete días, pero
la convalecencia es larga y lenta.

El Dengue Hemorrágico o fiebre hemorrágica
del dengue es una forma más grave del dengue y puede ser
mortal si no se trata adecuadamente. El Dengue Hemorrágico
es causado por infección con uno de los mismos virus que
causan el dengue, habiéndose infectado previamente con
alguno de los otros tres. El virus no se puede transmitir
directamente de persona a
persona.

El dengue es una enfermedad vírica febril y aguda
que se caracteriza por comienzo repentino. La fiebre puede durar
de tres a cinco días (rara vez más de siete
días, y suele ser difásica). Cefalea
intensa, mialgias, artralgias, dolor retroorbital,
anorexia,
alteraciones del aparato gastrointestinal y exantema rubeliforme.
En algunos casos aparece tempranamente eritema
generalizado.

Para la fecha en que la fiebre muestra
defervescencia suele aparecer una erupción maculopapular
generalizada, pruriginosa de duración corta.

En la sección correspondiente a dengue
hemorrágico se presentan las infecciones por dengue que
presentan un incremento en la permeabilidad vascular,
manifestaciones hemorrágicas extraordinarias y ataque de
órganos específicos.

En cualquier momento durante la fase febril pueden
aparecer fenómenos hemorrágicos de poca intensidad,
como petequias, epistaxis o menotrorragia. En las personas de
piel oscura la erupción a menudo no es visible.

La recuperación puede acompañarse de
fatiga y depresión
duraderas. Son frecuentes la linfadenopatías y la
leucopenia con linfocitosis relativa; con menor frecuencia se
observan trombocitopenia (menos de 100 000 plaquetas por mm3) e
incremento de las
aminotransferasas.

Las epidemias tienen carácter explosivo, pero la tasa de
letalidad es muy baja, siempre que no aparezca el dengue
hemorrágico.

El diagnóstico diferencial incluye todas las
enfermedades
epidemiológicamente importantes incluidas bajo los rubros
de fiebres víricas transmitidas por
artrópodos,
sarampión,
rubéola y otras enfermedades febriles
sistémicas. Con técnicas
auxiliares en el diagnóstico pueden utilizarse las
pruebas de
inhibición de la hemaglutinación, fijación
del complemento. ELISA, captación de anticuerpos IgG e
IgM, así como las de neutralización. El virus se
aísla de la sangre por
inoculación de mosquitos o por técnicas de cultivo
celular de mosquitos o vertebrados y después se
identifican con anticuerpos monoclonales con especificidad de
tipo.

Desarrollo

Después de hablar un poco sobre que es prolog y
el dengue, presentaremos un programa
realizado con prolog que puede ayudar al diagnostico, almacenamiento de
datos y
búsqueda rápida y oportuna de los pacientes
aquejados con esta entidad y sus datos, así veremos
también un modesto ejemplo de la relación estrecha
que puede haber entre esta temible enfermedad y la inteligencia
artificial. Para poder
´´correr´´ este programa es necesario
tener instalado previamente un software al efecto como Amzi
prolog o Swi-prolog. Hemos primero hecho las declaraciones y
luego hemos escrito las reglas. La cantidad de pacientes
sobrepasa los diez, pero estos solo sirven como ejemplo o
modelo, pues
igual puede ser mucho mayor o menor la cantidad.

Programa

caracteristicas(fiebre,elevada,'Alberto
martinez').

caracteristicas(fiebre,constante,'Alberto
martinez').

caracteristicas(fiebre,diaria,'Alberto
martinez').

caracteristicas(cefalea,intensa,'Alberto
martinez').

caracteristicas(cefalea,constante,'Alberto
martinez').

caracteristicas(cefalea,opresiva,'Alberto
martinez').

caracteristicas(dolor_ocular,retrocular,'Alberto
martinez').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Alberto
martinez').

caracteristicas(dolor_ocular,intenso,'Alberto
martinez').

caracteristicas(leucograma,elevado,'Alberto
martinez').

caracteristicas(leucograma,linfocitosis,'Alberto
martinez').

caracteristicas(leucograma,linfopenia,'Alberto
martinez').

caracteristicas(monosuero,positivo,'Alberto
martinez').

caracteristicas(fiebre,elevada,'Enrique
colon').

caracteristicas(fiebre,constante,'Enrique
colon').

caracteristicas(fiebre,diaria,'Enrique
colon').

caracteristicas(cefalea,intensa,'Enrique
colon').

caracteristicas(cefalea,constante,'Enrique
colon').

caracteristicas(cefalea,opresiva,'Enrique
colon').

caracteristicas(dolor_ocular,retrocular,'Enrique
colon').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Enrique
colon').

caracteristicas(dolor_ocular,intenso,'Enrique
colon').

caracteristicas(leucograma,elevado,'Enrique
colon').

caracteristicas(leucograma,linfocitosis,'Enrique
colon').

caracteristicas(leucograma,linfopenia,'Enrique
colon').

caracteristicas(monosuero,positivo,'Enrique
colon').

caracteristicas(fiebre,elevada,'Julio mesa').

caracteristicas(fiebre,constante,'Julio
mesa').

caracteristicas(fiebre,diaria,'Julio mesa').

caracteristicas(cefalea,intensa,'Julio
mesa').

caracteristicas(cefalea,constante,'Julio
mesa').

caracteristicas(cefalea,opresiva,'Julio
mesa').

caracteristicas(dolor_ocular,retrocular,'Julio
mesa').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Julio
mesa').

caracteristicas(dolor_ocular,intenso,'Julio
mesa').

caracteristicas(leucograma,elevado,'Julio
mesa').

caracteristicas(leucograma,linfocitosis,'Julio
mesa').

caracteristicas(leucograma,linfopenia,'Julio
mesa').

caracteristicas(monosuero,positivo,'Julio
mesa').

caracteristicas(fiebre,elevada,'Rey
alfonso').

caracteristicas(fiebre,constante,'Rey
alfonso').

caracteristicas(fiebre,diaria,'Rey alfonso').

caracteristicas(cefalea,intensa,'Rey
alfonso').

caracteristicas(cefalea,constante,'Rey
alfonso').

caracteristicas(cefalea,opresiva,'Rey
alfonso').

caracteristicas(dolor_ocular,retrocular,'Rey
alfonso').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Rey
alfonso').

caracteristicas(dolor_ocular,intenso,'Rey
alfonso').

caracteristicas(leucograma,elevado,'Rey
alfonso').

caracteristicas(leucograma,linfocitosis,'Rey
alfonso').

caracteristicas(leucograma,linfopenia,'Rey
alfonso').

caracteristicas(monosuero,positivo,'Rey
alfonso').

caracteristicas(fiebre,elevada,'Esteban
baso').

caracteristicas(fiebre,constante,'Esteban
baso').

caracteristicas(fiebre,diaria,'Esteban
baso').

caracteristicas(cefalea,intensa,'Esteban
baso').

caracteristicas(cefalea,constante,'Esteban
baso').

caracteristicas(cefalea,opresiva,'Esteban
baso').

caracteristicas(dolor_ocular,retrocular,'Esteban
baso').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Esteban
baso').

caracteristicas(dolor_ocular,intenso,'Esteban
baso').

caracteristicas(leucograma,elevado,'Esteban
baso').

caracteristicas(leucograma,linfocitosis,'Esteban
baso').

caracteristicas(leucograma,linfopenia,'Esteban
baso').

caracteristicas(monosuero,positivo,'Esteban
baso').

caracteristicas(fiebre,elevada,'Claudia
morse').

caracteristicas(fiebre,constante,'Claudia
morse').

caracteristicas(fiebre,diaria,'Claudia
morse').

caracteristicas(cefalea,intensa,'Claudia
morse').

caracteristicas(cefalea,constante,'Claudia
morse').

caracteristicas(cefalea,opresiva,'Claudia
morse').

caracteristicas(dolor_ocular,retrocular,'Claudia
morse').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Claudia
morse').

caracteristicas(dolor_ocular,intenso,'Claudia
morse').

caracteristicas(leucograma,elevado,'Claudia
morse').

caracteristicas(leucograma,linfocitosis,'Claudia
morse').

caracteristicas(leucograma,linfopenia,'Claudia
morse').

caracteristicas(monosuero,positivo,'Claudia
morse').

caracteristicas(fiebre,elevada,'Abel valle').

caracteristicas(fiebre,constante,'Abel
valle').

caracteristicas(fiebre,diaria,'Abel valle').

caracteristicas(cefalea,intensa,'Abel
valle').

caracteristicas(cefalea,constante,'Abel
valle').

caracteristicas(cefalea,opresiva,'Abel
valle').

caracteristicas(dolor_ocular,retrocular,'Abel
valle').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Abel
valle').

caracteristicas(dolor_ocular,intenso,'Abel
valle').

caracteristicas(leucograma,elevado,'Abel
valle').

caracteristicas(leucograma,linfocitosis,'Abel
valle').

caracteristicas(leucograma,linfopenia,'Abel
valle').

caracteristicas(monosuero,positivo,'Abel
valle').

caracteristicas(fiebre,elevada,'Anaisa
blanco').

caracteristicas(fiebre,constante,'Anaisa
blanco').

caracteristicas(fiebre,diaria,'Anaisa
blanco').

caracteristicas(cefalea,intensa,'Anaisa
blanco').

caracteristicas(cefalea,constante,'Anaisa
blanco').

caracteristicas(cefalea,opresiva,'Anaisa
blanco').

caracteristicas(dolor_ocular,retrocular,'Anaisa
blanco').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Anaisa
blanco').

caracteristicas(dolor_ocular,intenso,'Anaisa
blanco').

caracteristicas(leucograma,elevado,'Anaisa
blanco').

caracteristicas(leucograma,linfocitosis,'Anaisa
blanco').

caracteristicas(leucograma,linfopenia,'Anaisa
blanco').

caracteristicas(monosuero,positivo,'Anaisa
blanco').

caracteristicas(fiebre,elevada,'Claudio
montes').

caracteristicas(fiebre,constante,'Claudio
montes').

caracteristicas(fiebre,diaria,'Claudio
montes').

caracteristicas(cefalea,intensa,'Claudio
montes').

caracteristicas(cefalea,constante,'Claudio
montes').

caracteristicas(cefalea,opresiva,'Claudio
montes').

caracteristicas(dolor_ocular,retrocular,'Claudio
montes').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Claudio
montes').

caracteristicas(dolor_ocular,intenso,'Claudio
montes').

caracteristicas(leucograma,elevado,'Claudio
montes').

caracteristicas(leucograma,linfocitosis,'Claudio
montes').

caracteristicas(leucograma,linfopenia,'Claudio
montes').

caracteristicas(monosuero,positivo,'Claudio
montes').

caracteristicas(fiebre,elevada,'Raisa
rivero').

caracteristicas(fiebre,constante,'Raisa
rivero').

caracteristicas(fiebre,diaria,'Raisa
rivero').

caracteristicas(cefalea,intensa,'Raisa
rivero').

caracteristicas(cefalea,constante,'Raisa
rivero').

caracteristicas(cefalea,opresiva,'Raisa
rivero').

caracteristicas(dolor_ocular,retrocular,'Raisa
rivero').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Raisa
rivero').

caracteristicas(dolor_ocular,intenso,'Raisa
rivero').

caracteristicas(leucograma,elevado,'Raisa
rivero').

caracteristicas(leucograma,linfocitosis,'Raisa
rivero').

caracteristicas(leucograma,linfopenia,'Raisa
rivero').

caracteristicas(monosuero,positivo,'Raisa
rivero').

caracteristicas(fiebre,elevada,'Rodersy
padron').

caracteristicas(fiebre,constante,'Rodersy
padron').

caracteristicas(fiebre,diaria,'Rodersy
padron').

caracteristicas(cefalea,intensa,'Rodersy
padron').

caracteristicas(cefalea,constante,'Rodersy
padron').

caracteristicas(cefalea,opresiva,'Rodersy
padron').

caracteristicas(dolor_ocular,retrocular,'Rodersy
padron').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Rodersy
padron').

caracteristicas(dolor_ocular,intenso,'Rodersy
padron').

caracteristicas(leucograma,elevado,'Rodersy
padron').

caracteristicas(leucograma,linfocitosis,'Rodersy
padron').

caracteristicas(leucograma,linfopenia,'Rodersy
padron').

caracteristicas(monosuero,positivo,'Rodersy
padron').

caracteristicas(fiebre,elevada,'Berta grau').

caracteristicas(fiebre,constante,'Berta
grau').

caracteristicas(fiebre,diaria,'Berta grau').

caracteristicas(cefalea,intensa,'Berta
grau').

caracteristicas(cefalea,constante,'Berta
grau').

caracteristicas(cefalea,opresiva,'Berta
grau').

caracteristicas(dolor_ocular,retrocular,'Berta
grau').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Berta
grau').

caracteristicas(dolor_ocular,intenso,'Berta
grau').

caracteristicas(leucograma,elevado,'Berta
grau').

caracteristicas(leucograma,linfocitosis,'Berta
grau').

caracteristicas(leucograma,linfopenia,'Berta
grau').

caracteristicas(monosuero,positivo,'Berta
grau').

caracteristicas(fiebre,elevada,'Renata
cruz').

caracteristicas(fiebre,constante,'Renata
cruz').

caracteristicas(fiebre,diaria,'Renata cruz').

caracteristicas(cefalea,intensa,'Renata
cruz').

caracteristicas(cefalea,constante,'Renata
cruz').

caracteristicas(cefalea,opresiva,'Renata
cruz').

caracteristicas(dolor_ocular,retrocular,'Renata
cruz').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Renata
cruz').

caracteristicas(dolor_ocular,intenso,'Renata
cruz').

caracteristicas(leucograma,elevado,'Renata
cruz').

caracteristicas(leucograma,linfocitosis,'Renata
cruz').

caracteristicas(leucograma,linfopenia,'Renata
cruz').

caracteristicas(monosuero,positivo,'Renata
cruz').

caracteristicas(fiebre,elevada,'Lorenzo
espinaco').

caracteristicas(fiebre,constante,'Lorenzo
espinaco').

caracteristicas(fiebre,diaria,'Lorenzo
espinaco').

caracteristicas(cefalea,intensa,'Lorenzo
espinaco').

caracteristicas(cefalea,constante,'Lorenzo
espinaco').

caracteristicas(cefalea,opresiva,'Lorenzo
espinaco').

caracteristicas(dolor_ocular,retrocular,'Lorenzo
espinaco').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Lorenzo
espinaco').

caracteristicas(dolor_ocular,intenso,'Lorenzo
espinaco').

caracteristicas(leucograma,elevado,'Lorenzo
espinaco').

caracteristicas(leucograma,linfocitosis,'Lorenzo
espinaco').

caracteristicas(leucograma,linfopenia,'Lorenzo
espinaco').

caracteristicas(monosuero,positivo,'Lorenzo
espinaco').

enfermedad('Dengue',Paciente):-

sintoma(fiebre,Paciente),

sintoma(cefalea,Paciente),

sintoma(dolor_ocular,Paciente),

laboratorio(leucograma,Paciente),

laboratorio(monosuero,Paciente).

sintoma(fiebre,Paciente):-

caracteristicas(fiebre,elevada,Paciente),

caracteristicas(fiebre,constante,Paciente),

caracteristicas(fiebre,diaria,Paciente).

sintoma(cefalea,Paciente):-

caracteristicas(cefalea,intensa,Paciente),

caracteristicas(cefalea,constante,Paciente),

caracteristicas(cefalea,opresiva,Paciente).

sintoma(dolor_ocular,Paciente):-

caracteristicas(dolor_ocular,retrocular,Paciente),

caracteristicas(dolor_ocular,al_movimiento_ocular,Paciente),

caracteristicas(dolor_ocular,intenso,Paciente).

laboratorio(leucograma,Paciente):-

caracteristicas(leucograma,elevado,Paciente),

caracteristicas(leucograma,linfocitosis,Paciente),

caracteristicas(leucograma,linfopenia,Paciente).

laboratorio(monosuero,Paciente):-

caracteristicas(monosuero,positivo,Paciente).

Bibliografía revisada

1. Cecil Loeb.Tratado de medicina
   interna,Salvat editora panamericana.2004.
2. De Wikipedia la enciclopedia libre. Prolog
   ,2006.
3. Filgueiras Nodar, José María. Un
   panorama general de la inteligencia
   artificial y sus aplicaciones actuales.2005.
4. Roca Goderich R. Temas de Medicina interna,Tomo III,
   4ta edición.2002.
5. Colectivo de autores .temas de medicina general
   integral,tomo II ,2002

Dr. Alexander Sanchez Arbolaez

Doctor en medicina 1997.Diplomado en idioma inglés
en 1997.Diplomado en idioma francés 2002. Diplomado en
ofimática
20003.Especialista en medicina general 2005.

Cuba, Santa Clara